/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / tech85fw.lbr / TIME.ARC / DIFFTIME.FW

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 03 00 98 03 00 ff ed fb | 00 00 00 00 42 00 00 00 |........|....B...|
|00000010| e6 f3 66 01 02 00 a0 00 | 04 00 00 00 00 00 00 00 |..f.....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 03 00 5e 03 08 00 00 00 | 00 01 00 00 02 00 00 00 |..^.....|........|
|00000040| 00 00 00 00 00 00 00 00 | 03 00 38 00 09 00 01 00 |........|..8.....|
|00000050| 02 00 00 00 0d 01 0d 00 | 20 00 46 00 75 00 6e 00 |........| .F.u.n.|
|00000060| 04 00 60 03 02 00 07 00 | 01 00 05 00 46 00 0f 00 |..`.....|....F...|
|00000070| 01 00 06 00 46 00 10 00 | 00 00 01 00 4f 00 15 00 |....F...|....O...|
|00000080| 00 00 05 00 47 00 11 00 | 01 00 06 00 07 00 00 00 |....G...|........|
|00000090| 00 00 00 00 00 00 00 00 | 41 08 00 00 00 41 00 00 |........|A....A..|
|000000a0| 02 00 62 03 18 82 00 00 | 00 01 00 00 02 00 08 00 |..b.....|........|
|000000b0| 44 69 66 66 74 69 6d 65 | 00 ff ff ff ff ff ff ff |Difftime|........|
|000000c0| bb 00 80 03 18 82 00 00 | 00 01 00 00 02 00 c2 0a |........|........|
|000000d0| 3b 20 46 75 6e 63 74 69 | 6f 6e 20 44 69 66 66 74 |; Functi|on Difft|
|000000e0| 69 6d 65 ff 01 00 ff 3b | 20 43 6f 6d 70 61 72 65 |ime....;| Compare|
|000000f0| 73 20 74 77 6f 20 74 69 | 6d 65 73 20 61 6e 64 20 |s two ti|mes and |
|00000100| 73 65 73 75 6c 74 73 20 | 69 6e 20 74 68 65 20 64 |sesults |in the d|
|00000110| 69 66 66 65 72 65 6e 63 | 65 20 62 65 74 77 65 65 |ifferenc|e betwee|
|00000120| 6e 20 74 68 65 6d 2e ff | 01 00 ff ff 01 00 ff 3b |n them..|.......;|
|00000130| 20 44 65 63 6c 61 72 65 | 20 76 61 72 69 61 62 6c | Declare| variabl|
|00000140| 65 73 2e ff 01 00 ff ff | 01 00 ff 40 6c 6f 63 61 |es......|...@loca|
|00000150| 6c 28 68 72 31 2c 6d 69 | 6e 31 2c 70 6f 73 31 2c |l(hr1,mi|n1,pos1,|
|00000160| 68 72 32 2c 6d 69 6e 32 | 2c ff 01 00 ff 20 70 6f |hr2,min2|,.... po|
|00000170| 73 32 2c 6c 61 74 65 2c | 65 61 72 6c 79 2c 6e 65 |s2,late,|early,ne|
|00000180| 77 68 72 2c 6e 65 77 6d | 69 6e 29 2c 20 09 09 09 |whr,newm|in), ...|
|00000190| ff 01 00 ff ff 01 00 ff | 3b 20 54 65 73 74 20 66 |........|; Test f|
|000001a0| 6f 72 20 6c 6f 63 61 74 | 69 6f 6e 20 6f 66 20 63 |or locat|ion of c|
|000001b0| 6f 6c 6f 6e 20 69 6e 20 | 74 68 65 20 6c 61 74 65 |olon in |the late|
|000001c0| 72 20 74 69 6d 65 20 74 | 6f 20 64 65 74 65 72 6d |r time t|o determ|
|000001d0| 69 6e 65 ff 01 00 ff 3b | 20 69 66 20 68 6f 75 72 |ine....;| if hour|
|000001e0| 20 69 73 20 6f 6e 65 20 | 6f 72 20 74 77 6f 20 63 | is one |or two c|
|000001f0| 68 61 72 61 63 74 65 72 | 73 20 6c 6f 6e 67 2e ff |haracter|s long..|
|00000200| 01 00 ff ff 01 00 ff 40 | 69 66 28 40 6d 69 64 28 |.......@|if(@mid(|
|00000210| 40 69 74 65 6d 31 2c 32 | 2c 31 29 20 3d 20 22 3a |@item1,2|,1) = ":|
|00000220| 22 2c 20 09 09 09 09 ff | 01 00 ff 20 20 20 70 6f |", .....|...   po|
|00000230| 73 31 20 3a 3d 20 31 2c | 20 70 6f 73 31 20 3a 3d |s1 := 1,| pos1 :=|
|00000240| 20 32 29 2c 09 09 09 09 | ff 01 00 ff ff 01 00 ff | 2),....|........|
|00000250| ff 01 00 ff 3b 20 54 65 | 73 74 20 66 6f 72 20 6c |....; Te|st for l|
|00000260| 65 6e 67 74 68 20 6f 66 | 20 40 69 74 65 6d 31 20 |ength of| @item1 |
|00000270| 67 72 65 61 74 65 72 20 | 74 68 61 6e 20 35 ff 01 |greater |than 5..|
|00000280| 00 ff 3b 20 77 68 69 63 | 68 20 77 6f 75 6c 64 20 |..; whic|h would |
|00000290| 69 6e 64 69 63 61 74 65 | 20 61 20 74 69 6d 65 20 |indicate| a time |
|000002a0| 69 6e 20 31 32 2d 68 6f | 75 72 20 66 6f 72 6d 61 |in 12-ho|ur forma|
|000002b0| 74 2e ff 01 00 ff ff 01 | 00 ff 40 69 66 28 40 6c |t.......|..@if(@l|
|000002c0| 65 6e 28 40 69 74 65 6d | 31 29 20 3e 20 35 2c ff |en(@item|1) > 5,.|
|000002d0| 01 00 ff ff 01 00 ff 20 | 20 20 3b 20 54 65 73 74 |....... |  ; Test|
|000002e0| 20 66 6f 72 20 22 50 4d | 22 20 41 4e 44 20 6f 74 | for "PM|" AND ot|
|000002f0| 68 65 72 20 74 68 61 6e | 20 22 31 32 3a 78 78 22 |her than| "12:xx"|
|00000300| 20 69 6e 20 65 61 72 6c | 69 65 72 20 74 69 6d 65 | in earl|ier time|
|00000310| 2e 09 ff 01 00 ff ff 01 | 00 ff 20 20 20 40 69 66 |........|..   @if|
|00000320| 28 40 61 6e 64 28 40 6d | 69 64 28 40 69 74 65 6d |(@and(@m|id(@item|
|00000330| 31 2c 70 6f 73 31 20 2b | 20 35 2c 32 29 20 3d 20 |1,pos1 +| 5,2) = |
|00000340| 22 50 4d 22 2c ff 01 00 | ff 09 09 09 40 6d 69 64 |"PM",...|....@mid|
|00000350| 28 40 69 74 65 6d 31 2c | 31 2c 70 6f 73 31 29 20 |(@item1,|1,pos1) |
|00000360| 3c 3e 20 22 31 32 22 29 | 2c ff 01 00 ff ff 01 00 |<> "12")|,.......|
|00000370| ff 20 20 20 3b 20 49 66 | 20 54 52 55 45 2c 20 68 |.   ; If| TRUE, h|
|00000380| 72 31 20 3d 20 6c 61 74 | 65 20 74 69 6d 65 20 68 |r1 = lat|e time h|
|00000390| 6f 75 72 20 2b 20 31 32 | ff 01 00 ff 20 20 20 3b |our + 12|....   ;|
|000003a0| 20 28 74 6f 20 61 63 63 | 6f 6d 6d 6f 64 61 74 65 | (to acc|ommodate|
|000003b0| 20 74 68 65 20 32 34 2d | 68 6f 75 72 20 63 6c 6f | the 24-|hour clo|
|000003c0| 63 6b 29 2e ff 01 00 ff | 20 20 20 20 20 20 20 68 |ck).....|       h|
|000003d0| 72 31 20 3a 3d 20 40 76 | 61 6c 75 65 28 40 6d 69 |r1 := @v|alue(@mi|
|000003e0| 64 28 40 69 74 65 6d 31 | 2c 31 2c 70 6f 73 31 29 |d(@item1|,1,pos1)|
|000003f0| 29 20 2b 20 31 32 2c ff | 01 00 ff ff 01 00 ff 20 |) + 12,.|....... |
|00000400| 20 20 3b 20 49 66 20 46 | 41 4c 53 45 2c 20 74 65 |  ; If F|ALSE, te|
|00000410| 73 74 20 66 6f 72 20 22 | 31 32 3a 78 78 22 20 41 |st for "|12:xx" A|
|00000420| 4e 44 20 6f 74 68 65 72 | 20 74 68 61 6e 20 22 50 |ND other| than "P|
|00000430| 4d 22 2e ff 01 00 ff 20 | 20 20 20 20 20 20 40 69 |M"..... |      @i|
|00000440| 66 28 40 61 6e 64 28 40 | 6d 69 64 28 40 69 74 65 |f(@and(@|mid(@ite|
|00000450| 6d 31 2c 31 2c 70 6f 73 | 31 29 20 3d 20 22 31 32 |m1,1,pos|1) = "12|
|00000460| 22 2c ff 01 00 ff 09 09 | 09 09 40 6d 69 64 28 40 |",......|..@mid(@|
|00000470| 69 74 65 6d 31 2c 70 6f | 73 31 20 2b 20 35 2c 32 |item1,po|s1 + 5,2|
|00000480| 29 20 3c 3e 20 22 50 4d | 22 29 2c ff 01 00 ff ff |) <> "PM|"),.....|
|00000490| 01 00 ff 20 20 20 3b 20 | 49 66 20 74 68 69 73 20 |...   ; |If this |
|000004a0| 69 73 20 54 52 55 45 20 | 28 69 74 20 69 73 20 31 |is TRUE |(it is 1|
|000004b0| 32 3a 78 78 20 41 4d 2c | 20 6d 69 64 6e 69 67 68 |2:xx AM,| midnigh|
|000004c0| 74 20 2b 20 78 78 29 2c | ff 01 00 ff 20 20 20 3b |t + xx),|....   ;|
|000004d0| 20 74 68 65 6e 20 68 72 | 32 20 3d 20 30 2c 20 65 | then hr|2 = 0, e|
|000004e0| 6c 73 65 20 6b 65 65 70 | 20 64 69 73 70 6c 61 79 |lse keep| display|
|000004f0| 65 64 20 68 6f 75 72 2e | ff 01 00 ff 09 20 20 20 |ed hour.|.....   |
|00000500| 20 20 20 20 68 72 31 20 | 3a 3d 20 30 2c ff 01 00 |    hr1 |:= 0,...|
|00000510| ff 20 20 20 20 20 20 20 | 20 20 20 20 68 72 31 20 |.       |    hr1 |
|00000520| 3a 3d 20 40 76 61 6c 75 | 65 28 40 6d 69 64 28 40 |:= @valu|e(@mid(@|
|00000530| 69 74 65 6d 31 2c 31 2c | 70 6f 73 31 29 29 ff 01 |item1,1,|pos1))..|
|00000540| 00 ff 20 20 20 20 20 20 | 20 29 ff 01 00 ff 20 20 |..      | )....  |
|00000550| 20 29 2c ff 01 00 ff 20 | 20 20 68 72 31 20 3a 3d | ),.... |  hr1 :=|
|00000560| 20 40 76 61 6c 75 65 28 | 40 6d 69 64 28 40 69 74 | @value(|@mid(@it|
|00000570| 65 6d 31 2c 31 2c 70 6f | 73 31 29 29 ff 01 00 ff |em1,1,po|s1))....|
|00000580| 29 2c ff 01 00 ff ff 01 | 00 ff 3b 20 49 6e 20 61 |),......|..; In a|
|00000590| 6e 79 20 63 61 73 65 2c | 20 74 68 65 20 6d 69 6e |ny case,| the min|
|000005a0| 75 74 65 73 20 61 72 65 | 20 6c 65 66 74 20 61 73 |utes are| left as|
|000005b0| 20 69 73 2e ff 01 00 ff | 6d 69 6e 31 20 3a 3d 20 | is.....|min1 := |
|000005c0| 40 76 61 6c 75 65 28 40 | 6d 69 64 28 40 69 74 65 |@value(@|mid(@ite|
|000005d0| 6d 31 2c 70 6f 73 31 20 | 2b 20 32 2c 32 29 29 2c |m1,pos1 |+ 2,2)),|
|000005e0| ff 01 00 ff ff 01 00 ff | 3b 20 54 65 73 74 20 66 |........|; Test f|
|000005f0| 6f 72 20 6c 6f 63 61 74 | 69 6f 6e 20 6f 66 20 63 |or locat|ion of c|
|00000600| 6f 6c 6f 6e 20 69 6e 20 | 74 68 65 20 65 61 72 6c |olon in |the earl|
|00000610| 69 65 72 20 74 69 6d 65 | 20 74 6f ff 01 00 ff 3b |ier time| to....;|
|00000620| 20 64 65 74 65 72 6d 69 | 6e 65 20 69 66 20 68 6f | determi|ne if ho|
|00000630| 75 72 20 69 73 20 6f 6e | 65 20 6f 72 20 74 77 6f |ur is on|e or two|
|00000640| 20 63 68 61 72 61 63 74 | 65 72 73 20 6c 6f 6e 67 | charact|ers long|
|00000650| 2e ff 01 00 ff ff 01 00 | ff 40 69 66 28 40 6d 69 |........|.@if(@mi|
|00000660| 64 28 40 69 74 65 6d 32 | 2c 32 2c 31 29 20 3d 20 |d(@item2|,2,1) = |
|00000670| 22 3a 22 2c ff 01 00 ff | 20 20 20 70 6f 73 32 20 |":",....|   pos2 |
|00000680| 3a 3d 20 31 2c 20 70 6f | 73 32 20 3a 3d 20 32 29 |:= 1, po|s2 := 2)|
|00000690| 2c ff 01 00 ff ff 01 00 | ff ff 01 00 ff 3b 20 54 |,.......|.....; T|
|000006a0| 65 73 74 20 66 6f 72 20 | 6c 65 6e 67 74 68 20 6f |est for |length o|
|000006b0| 66 20 40 69 74 65 6d 32 | 20 67 72 65 61 74 65 72 |f @item2| greater|
|000006c0| 20 74 68 61 6e 20 35 ff | 01 00 ff 3b 20 77 68 69 | than 5.|...; whi|
|000006d0| 63 68 20 77 6f 75 6c 64 | 20 69 6e 64 69 63 61 74 |ch would| indicat|
|000006e0| 65 20 61 20 74 69 6d 65 | 20 69 6e 20 31 32 2d 68 |e a time| in 12-h|
|000006f0| 6f 75 72 20 66 6f 72 6d | 61 74 2e ff 01 00 ff ff |our form|at......|
|00000700| 01 00 ff 40 69 66 28 40 | 6c 65 6e 28 40 69 74 65 |...@if(@|len(@ite|
|00000710| 6d 32 29 20 3e 20 35 2c | ff 01 00 ff ff 01 00 ff |m2) > 5,|........|
|00000720| 20 20 20 40 69 66 28 40 | 61 6e 64 28 40 6d 69 64 |   @if(@|and(@mid|
|00000730| 28 40 69 74 65 6d 32 2c | 70 6f 73 32 20 2b 20 35 |(@item2,|pos2 + 5|
|00000740| 2c 32 29 20 3d 20 22 50 | 4d 22 2c ff 01 00 ff 09 |,2) = "P|M",.....|
|00000750| 09 09 40 6d 69 64 28 40 | 69 74 65 6d 32 2c 31 2c |..@mid(@|item2,1,|
|00000760| 70 6f 73 32 29 20 3c 3e | 20 22 31 32 22 29 2c ff |pos2) <>| "12"),.|
|00000770| 01 00 ff ff 01 00 ff 20 | 20 20 20 20 20 20 68 72 |....... |      hr|
|00000780| 32 20 3a 3d 20 40 76 61 | 6c 75 65 28 40 6d 69 64 |2 := @va|lue(@mid|
|00000790| 28 40 69 74 65 6d 32 2c | 31 2c 70 6f 73 32 29 29 |(@item2,|1,pos2))|
|000007a0| 20 2b 20 31 32 2c 20 ff | 01 00 ff ff 01 00 ff 20 | + 12, .|....... |
|000007b0| 20 20 20 20 20 20 40 69 | 66 28 40 61 6e 64 28 40 |      @i|f(@and(@|
|000007c0| 6d 69 64 28 40 69 74 65 | 6d 32 2c 31 2c 70 6f 73 |mid(@ite|m2,1,pos|
|000007d0| 32 29 20 3d 20 22 31 32 | 22 2c ff 01 00 ff 09 09 |2) = "12|",......|
|000007e0| 09 09 40 6d 69 64 28 40 | 69 74 65 6d 32 2c 70 6f |..@mid(@|item2,po|
|000007f0| 73 32 20 2b 20 35 2c 32 | 29 20 3c 3e 20 22 50 4d |s2 + 5,2|) <> "PM|
|00000800| 22 29 2c ff 01 00 ff ff | 01 00 ff 20 20 20 20 20 |"),.....|...     |
|00000810| 20 20 20 20 20 20 68 72 | 32 20 3a 3d 20 30 2c ff |      hr|2 := 0,.|
|00000820| 01 00 ff 20 20 20 20 20 | 20 20 20 20 20 20 68 72 |...     |      hr|
|00000830| 32 20 3a 3d 20 40 76 61 | 6c 75 65 28 40 6d 69 64 |2 := @va|lue(@mid|
|00000840| 28 40 69 74 65 6d 32 2c | 31 2c 70 6f 73 32 29 29 |(@item2,|1,pos2))|
|00000850| ff 01 00 ff 20 20 20 20 | 20 20 20 29 ff 01 00 ff |....    |   )....|
|00000860| 20 20 20 29 2c 20 20 20 | ff 01 00 ff 20 20 20 68 |   ),   |....   h|
|00000870| 72 32 20 3a 3d 20 40 76 | 61 6c 75 65 28 40 6d 69 |r2 := @v|alue(@mi|
|00000880| 64 28 40 69 74 65 6d 32 | 2c 31 2c 70 6f 73 32 29 |d(@item2|,1,pos2)|
|00000890| 29 20 ff 01 00 ff 29 2c | ff 01 00 ff ff 01 00 ff |) ....),|........|
|000008a0| 6d 69 6e 32 20 3a 3d 20 | 40 76 61 6c 75 65 28 40 |min2 := |@value(@|
|000008b0| 6d 69 64 28 40 69 74 65 | 6d 32 2c 70 6f 73 32 20 |mid(@ite|m2,pos2 |
|000008c0| 2b 20 32 2c 32 29 29 2c | 20 ff 01 00 ff ff 01 00 |+ 2,2)),| .......|
|000008d0| ff 3b 20 43 6f 6e 76 65 | 72 74 20 74 68 65 20 74 |.; Conve|rt the t|
|000008e0| 69 6d 65 20 74 6f 20 74 | 6f 74 61 6c 20 6d 69 6e |ime to t|otal min|
|000008f0| 75 74 65 73 20 70 61 73 | 74 20 6d 69 64 6e 69 67 |utes pas|t midnig|
|00000900| 68 74 ff 01 00 ff 3b 20 | 28 32 34 2d 68 6f 75 72 |ht....; |(24-hour|
|00000910| 20 63 6c 6f 63 6b 29 20 | 74 6f 20 61 73 73 69 67 | clock) |to assig|
|00000920| 6e 20 76 61 6c 75 65 73 | 20 74 6f 20 6c 61 74 65 |n values| to late|
|00000930| 20 61 6e 64 20 65 61 72 | 6c 79 2e ff 01 00 ff ff | and ear|ly......|
|00000940| 01 00 ff 6c 61 74 65 20 | 3a 3d 20 28 68 72 31 2a |...late |:= (hr1*|
|00000950| 36 30 29 20 2b 20 6d 69 | 6e 31 2c 20 09 09 09 09 |60) + mi|n1, ....|
|00000960| 09 ff 01 00 ff 65 61 72 | 6c 79 20 3a 3d 20 28 68 |.....ear|ly := (h|
|00000970| 72 32 2a 36 30 29 20 2b | 20 6d 69 6e 32 2c 20 09 |r2*60) +| min2, .|
|00000980| 09 09 09 09 ff 01 00 ff | ff 01 00 ff 3b 20 41 73 |........|....; As|
|00000990| 73 69 67 6e 20 74 68 65 | 20 74 6f 74 61 6c 20 6d |sign the| total m|
|000009a0| 69 6e 75 74 65 73 20 64 | 69 66 66 65 72 65 6e 63 |inutes d|ifferenc|
|000009b0| 65 20 62 65 74 77 65 65 | 6e 20 74 68 65 20 74 69 |e betwee|n the ti|
|000009c0| 6d 65 73 ff 01 00 ff 3b | 20 64 69 76 69 64 65 64 |mes....;| divided|
|000009d0| 20 62 79 20 36 30 20 28 | 6e 75 6d 62 65 72 20 6f | by 60 (|number o|
|000009e0| 66 20 66 75 6c 6c 20 68 | 6f 75 72 73 29 20 74 6f |f full h|ours) to|
|000009f0| 20 6e 65 77 68 72 2e ff | 01 00 ff ff 01 00 ff 6e | newhr..|.......n|
|00000a00| 65 77 68 72 20 3a 3d 20 | 40 66 6c 6f 6f 72 28 6c |ewhr := |@floor(l|
|00000a10| 61 74 65 20 2d 20 65 61 | 72 6c 79 29 2f 36 30 2c |ate - ea|rly)/60,|
|00000a20| ff 01 00 ff ff 01 00 ff | ff 01 00 ff 3b 20 54 65 |........|....; Te|
|00000a30| 73 74 20 66 6f 72 20 72 | 65 6d 61 69 6e 64 65 72 |st for r|emainder|
|00000a40| 20 6f 66 20 74 68 65 20 | 61 62 6f 76 65 20 64 69 | of the |above di|
|00000a50| 76 69 73 69 6f 6e 20 28 | 75 73 69 6e 67 20 74 68 |vision (|using th|
|00000a60| 65 20 40 6d 6f 64 ff 01 | 00 ff 3b 20 66 75 6e 63 |e @mod..|..; func|
|00000a70| 74 69 6f 6e 29 2e 20 20 | 49 66 20 74 68 65 20 72 |tion).  |If the r|
|00000a80| 65 6d 61 69 6e 64 65 72 | 20 69 73 20 6e 6f 74 20 |emainder| is not |
|00000a90| 74 77 6f 20 63 68 61 72 | 61 63 74 65 72 73 20 6c |two char|acters l|
|00000aa0| 6f 6e 67 20 69 74 ff 01 | 00 ff 3b 20 77 69 6c 6c |ong it..|..; will|
|00000ab0| 20 62 65 20 6e 65 63 65 | 73 73 61 72 79 20 74 6f | be nece|ssary to|
|00000ac0| 20 22 70 61 64 22 20 74 | 68 65 20 66 69 6e 61 6c | "pad" t|he final|
|00000ad0| 20 74 69 6d 65 20 64 69 | 73 70 6c 61 79 20 6f 66 | time di|splay of|
|00000ae0| 20 ff 01 00 ff 3b 20 6d | 69 6e 75 74 65 73 20 77 | ....; m|inutes w|
|00000af0| 69 74 68 20 61 20 7a 65 | 72 6f 2e ff 01 00 ff ff |ith a ze|ro......|
|00000b00| 01 00 ff ff 01 00 ff ff | 01 00 ff 40 69 66 28 40 |........|...@if(@|
|00000b10| 61 62 73 28 40 6d 6f 64 | 28 6c 61 74 65 20 2d 20 |abs(@mod|(late - |
|00000b20| 65 61 72 6c 79 2c 36 30 | 29 29 20 3e 20 39 2c ff |early,60|)) > 9,.|
|00000b30| 01 00 ff 20 20 20 6e 65 | 77 6d 69 6e 20 3a 3d 20 |...   ne|wmin := |
|00000b40| 40 69 6e 74 65 67 65 72 | 28 40 61 62 73 28 40 6d |@integer|(@abs(@m|
|00000b50| 6f 64 28 6c 61 74 65 20 | 2d 20 65 61 72 6c 79 2c |od(late |- early,|
|00000b60| 36 30 29 29 29 2c ff 01 | 00 ff 20 20 20 6e 65 77 |60))),..|..   new|
|00000b70| 6d 69 6e 20 3a 3d 20 22 | 30 22 20 26 20 40 69 6e |min := "|0" & @in|
|00000b80| 74 65 67 65 72 28 40 61 | 62 73 28 40 6d 6f 64 28 |teger(@a|bs(@mod(|
|00000b90| 6c 61 74 65 20 2d 20 65 | 61 72 6c 79 2c 36 30 29 |late - e|arly,60)|
|00000ba0| 29 29 ff 01 00 ff 29 2c | ff 01 00 ff ff 01 00 ff |))....),|........|
|00000bb0| 3b 20 54 65 73 74 20 69 | 66 20 74 68 65 20 74 69 |; Test i|f the ti|
|00000bc0| 6d 65 20 68 61 73 20 70 | 61 73 74 20 28 6e 65 67 |me has p|ast (neg|
|00000bd0| 61 74 69 76 65 20 72 65 | 73 75 6c 74 29 2e ff 01 |ative re|sult)...|
|00000be0| 00 ff ff 01 00 ff 40 69 | 66 28 6c 61 74 65 20 3c |......@i|f(late <|
|00000bf0| 20 65 61 72 6c 79 2c ff | 01 00 ff 20 20 20 22 2d | early,.|...   "-|
|00000c00| 22 20 26 20 40 69 6e 74 | 65 67 65 72 28 40 69 6e |" & @int|eger(@in|
|00000c10| 74 28 40 61 62 73 28 6e | 65 77 68 72 29 29 29 20 |t(@abs(n|ewhr))) |
|00000c20| 26 20 22 3a 22 20 26 20 | 6e 65 77 6d 69 6e 2c ff |& ":" & |newmin,.|
|00000c30| 01 00 ff 20 20 20 40 69 | 6e 74 65 67 65 72 28 40 |...   @i|nteger(@|
|00000c40| 69 6e 74 28 6e 65 77 68 | 72 29 29 20 26 20 22 3a |int(newh|r)) & ":|
|00000c50| 22 20 26 20 6e 65 77 6d | 69 6e 29 ff 01 00 ff 20 |" & newm|in).... |
|00000c60| 00 ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
+--------+-------------------------+-------------------------+--------+--------+